VERSION 5.00
Begin {BD4B4E61-F7B8-11D0-964D-00A0C9273C2A} rptBiopsia 
   ClientHeight    =   9765
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7965
   OleObjectBlob   =   "rptBiopsia.dsx":0000
End
Attribute VB_Name = "rptBiopsia"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub ReportFooterSection1_Format(ByVal pFormattingInfo As Object)
Dim Archivo As StdPicture
Dim imagen As Image

Set Archivo1 = LoadPicture(Me.foto1.Value)
Set Archivo2 = LoadPicture(Me.foto2.Value)
Set Archivo3 = LoadPicture(Me.foto3.Value)
Set Archivo4 = LoadPicture(Me.foto4.Value)

Set imagen1.FormattedPicture = Archivo1
Set imagen2.FormattedPicture = Archivo2
Set imagen3.FormattedPicture = Archivo3
Set imagen4.FormattedPicture = Archivo4

End Sub
